Namespace CNG
    Public Class GrupoDistribuidor

        Private _Codigo As Integer
        Private _Nombre As String

        Public Property Codigo() As Integer
            Get
                Return _Codigo
            End Get
            Set(ByVal value As Integer)
                _Codigo = value
            End Set
        End Property

        Public Property Nombre() As String
            Get
                Return _Nombre
            End Get
            Set(ByVal value As String)
                _Nombre = value
            End Set
        End Property
     

        Public Sub Agregar()

            Dim comando As New CAD.GrupoDistribuidor.GrupoDistribuidor_INSERT(CAD.BaseDatos.Conexion)

            comando.ExecuteNonQuery(Me.Codigo, _
                                    Me.Nombre)

        End Sub

        Public Sub Modificar()

            Dim comando As New CAD.GrupoDistribuidor.GrupoDistribuidor_UPDATE(CAD.BaseDatos.Conexion)

            comando.ExecuteNonQuery(Me.Codigo, _
                                    Me.Nombre)
        End Sub

        Public Shared Function ListadoGrupoDistribuidor(ByVal CodigoCD As String, ByVal Codigo As System.Nullable(Of Integer)) As DataTable

            Dim Comando As New CAD.GrupoDistribuidor.GrupoDistribuidor_SELECT(CAD.BaseDatos.Conexion)
            Dim Tabla As New DataTable

            Comando.LoadTable(Tabla, Codigo)

            Return Tabla

        End Function
        Public Shared Function GetGrupoDistribuidor(ByVal Codigo As Integer) As GrupoDistribuidor

            Dim Comando As New CAD.GrupoDistribuidor.GrupoDistribuidor_SELECT(CAD.BaseDatos.Conexion)
            Dim Tabla As New DataTable
            Dim miGrupoDistribuidor As New CNG.GrupoDistribuidor

            Comando.LoadTable(Tabla, Codigo)

            If Tabla.Rows.Count > 0 Then

                miGrupoDistribuidor.Codigo = Tabla.Rows(0).Item("Codigo")
                miGrupoDistribuidor.Nombre = Tabla.Rows(0).Item("Nombre")

                Return miGrupoDistribuidor

            Else
                Return Nothing
            End If

        End Function
    End Class
End Namespace
